home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
programr
/
listings
/
ptv2n5
/
parse.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-09-18
|
988b
|
34 lines
{ A program demonstrating Turbo Pascal 5.5's built in parsing }
{ Program parses a line and displays the individual words on seperate }
{ lines on the screen. }
{$M 1024,0,0}
{$A-,E-,L-,N-,R- }
PROGRAM PARSE;
USES CRT;
CONST
MESSAGE =
'Now is the time for all good men to code in 68-char columns.';
TYPE
PSTRING = STRING[128]; { Defines biggest parsable string }
PPS = ^PSTRING; { This will point at Prog. Prefix }
VAR
PARSELINE : PPS;
X : INTEGER;
WORKSTR : STRING[40];
BEGIN
PARSELINE := PTR(PREFIXSEG,128); { Initialize pointer to work area }
CLRSCR;
WRITELN('MESSAGE: ',MESSAGE); { Show what is going to be parsed }
PARSELINE^ := MESSAGE;
FOR X := 1 TO PARAMCOUNT DO { Now display each of the pieces }
WRITELN(PARAMSTR(X));
READLN; { Let user acknowledge the display }
END.